home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / ctrlkits / labelfrm.int < prev    next >
Text File  |  1995-12-22  |  867b  |  37 lines
  1. unit LabelFrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TTextOffset = 1..16;
  11.  
  12.   TFramedLabel = class(TLabel)
  13.   private
  14.     FFrameColor : TColor;
  15.     FOffset     : TTextOffset;
  16.     FShowFrame  : Boolean;
  17.  
  18.     procedure SetFrameColor(AColor : TColor);
  19.     procedure SetTextOffset(AValue : TTextOffset);
  20.     procedure SetShowFrame(ABoolean : Boolean);
  21.  
  22.   protected
  23.     procedure Paint; override;
  24.  
  25.   public
  26.     constructor Create(Aowner : TComponent); override;
  27.  
  28.   published
  29.     property FrameColor: TColor read FFrameColor write SetFrameColor default clBlack;
  30.     property TextOffset: TTextOffset read FOffset write SetTextOffset default 1;
  31.     property ShowFrame: Boolean read FShowFrame write SetShowFrame default True;
  32.   end;
  33.  
  34.  
  35. implementation
  36. end.
  37.